home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
PROGRAMR
/
UPC12BS1.ZIP
/
UUCICO
/
ULIBWIN.C
< prev
next >
Wrap
C/C++ Source or Header
|
1993-10-03
|
28KB
|
771 lines
/*--------------------------------------------------------------------*/
/* u l i b w i n . C */
/* */
/* UUPC/extended serial port communications for Windows 3.1 */
/*--------------------------------------------------------------------*/
/*--------------------------------------------------------------------*/
/* Changes copyright (c) 1993, by Robert Denny */
/*--------------------------------------------------------------------*/
/*--------------------------------------------------------------------*/
/* Changes Copyright (c) 1989-1993 by Kendra Electronic */
/* Wonderworks. */
/* */
/* All rights reserved except those explicitly granted by */
/* the UUPC/extended license agreement. */
/*--------------------------------------------------------------------*/
/*--------------------------------------------------------------------*/
/* RCS Information */
/*--------------------------------------------------------------------*/
/*
* $Id: ulibwin.c 1.7 1993/10/03 22:09:09 ahd Exp $
*
* Revision history:
* $Log: ulibwin.c $
* Revision 1.7 1993/10/03 22:09:09 ahd
* Use unsigned long to display speed
*
* Revision 1.6 1993/10/01 02:36:45 dmwatt
* Suppress odd debugging messages in normal compile
* Reformat source
*
* Revision 1.5 1993/09/29 13:18:06 ahd
* Use new dummy setprty function
*
* Revision 1.4 1993/09/27 00:48:43 ahd
* Add dummy set and reset priority functions
*
* Revision 1.3 1993/08/02 03:24:59 ahd
* Further changes in support of Robert Denny's Windows 3.x support
*
* Revision 1.2 1993/07/31 16:27:49 ahd
* Changes in support of Robert Denny's Windows support
*
* Revision 1.1 1993/07/22 23:24:23 ahd
* Initial revision
*
*/
/*--------------------------------------------------------------------*/
/* Services provided by ulib.c: */
/* */
/* - serial I/O */
/*--------------------------------------------------------------------*/
/*--------------------------------------------------------------------*/
/* System include files */
/*--------------------------------------------------------------------*/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <fcntl.h>
#include <io.h>
#include <time.h>
/*--------------------------------------------------------------------*/
/* MS Windows 3.1 include files */
/*--------------------------------------------------------------------*/
#include <windows.h>
/*--------------------------------------------------------------------*/
/* UUPC/extended include files */
/*--------------------------------------------------------------------*/
#include "lib.h"
#include "ulib.h"
#include "ssleep.h"
#include "commlib.h"
//
// Finally, Microsoft has documented a way to see the Modem Status
// Register bits for modem control lines. This was a real bizarre
// mess with SetCommEventMask() and GetCommEventMask(). The document
// is in the Developer's Knowledge Base:
//
// Title: INF: Accessing the Modem Status Register (MSR) in Windows
// Document Number: Q101417 Publ Date: 15-JUL-1993
// Product Name: Microsoft Windows Software Development Kit
// Product Version: 3.10
// Operating System: WINDOWS
//
#define COMM_MSRSHADOW 35 // Offset in DEB of MSR shadow
#define MSR_CTS 0x10 // absolute CTS state in MSR
#define MSR_DSR 0x20 // absolute DSR state in MSR
#define MSR_RI 0x40 // absolute RI state in MSR
#define MSR_RLSD 0x80 // absolute RLSD state in MSR
currentfile();
static boolean carrierdetect = FALSE; /* Modem is not connected */
static boolean hangupNeeded = FALSE;
static UINT currentSpeed = 0;
static LPBYTE lpbModemBits; // --> Modem Status Register bits
#define FAR_NULL ((PVOID) 0L)
#define IN_QUEUE_SIZE 2048
#define OUT_QUEUE_SIZE 2048
#define IN_XOFF_LIM 256
#define IN_XON_LIM 256
/*--------------------------------------------------------------------*/
/* Definitions of control structures for Win 3.1 API */
/*--------------------------------------------------------------------*/
static int nCid;
static DCB dcb;
/*--------------------------------------------------------------------*/
/* Internal prototypes */
/*--------------------------------------------------------------------*/
static void ShowModem( void );
static void ShowError( int status );
/*--------------------------------------------------------------------*/
/* n o p e n l i n e */
/* */
/* Open the serial port for I/O */
/*--------------------------------------------------------------------*/
#ifdef __TURBOC__
#pragma argsused
#endif
int nopenline(char *name, BPS baud, const boolean direct )
{
int rc;
if (portActive) /* Was the port already active? ahd */
closeline(); /* Yes --> Shutdown it before open ahd */
#ifdef UDEBUG
printmsg(15, "openline: %s, %ul", name, (unsigned long) baud);
#endif
if (!equaln(name, "COM", 3 ))
{
printmsg(0,
"openline: Communications port must be format COMx, was %s",
name);
return TRUE;
}
if((nCid = OpenComm(name, IN_QUEUE_SIZE, OUT_QUEUE_SIZE)) < 0)
{
printmsg(0, "openline: Failed to open port %s.", name);
printmsg(0, "nopenline: %s: OpenComm returned %#04X (%d)",
name,
nCid,
nCid);
return TRUE;
}
/*--------------------------------------------------------------------*/
/* Get the pointer to the MSR shadow in COMM.DRV's DEB */
/*--------------------------------------------------------------------*/
lpbModemBits = (LPBYTE)SetCommEventMask(nCid, 0) + COMM_MSRSHADOW;
/*--------------------------------------------------------------------*/
/* Reset any errors on the communications port */
/*--------------------------------------------------------------------*/
if ((rc = GetCommError (nCid, NULL)) != 0)
{
printmsg(0, "openline: Error condition reset on port %s.", name);
ShowError(rc);
}
/*--------------------------------------------------------------------*/
/* Set baud rate */
/*--------------------------------------------------------------------*/
nSIOSpeed(baud);
/*--------------------------------------------------------------------*/
/* Set line attributes */
/*--------------------------------------------------------------------*/
printmsg(15,"openline: Getting attributes");
if ((rc = GetCommState(nCid, &dcb)) != 0)
{
printmsg(0,"nopenline: %s: GetCommState was %#04x (%d)",
name,
rc,
rc);
panic();
}
dcb.StopBits = ONESTOPBIT;
dcb.Parity = NOPARITY;
dcb.ByteSize = 8;
/*--------------------------------------------------------------------*/
/* Set up for Flow Control */
/*--------------------------------------------------------------------*/
printmsg(15,"openline: Disabling XON/XOFF flow